From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 15 May 2015 14:24:06 +0000 (+0300)
Subject: Support de-alt dictionary with Aspell.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~2900
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=91a274810ff17403f37bde512716b180c9ab75ef;p=emacs.git

Support de-alt dictionary with Aspell.

* lisp/textmodes/ispell.el (ispell-aspell-find-dictionary):
Support Aspell dictionaries with names like "de-alt".  (Bug#20581)
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 43003afe543..8107f794e07 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1077,7 +1077,8 @@ of `ispell-dictionary-base-alist' elements."
 	     ;; Try xx.dat first, strip out variant, country code, etc,
 	     ;; then try xx_YY.dat (without stripping country code).
 	     (dolist (tmp-regexp (list "^[[:alpha:]]+"
-				       "^[[:alpha:]_]+"))
+				       "^[[:alpha:]_]+"
+                                       "^[[:alpha:]]+-\\(alt\\|old\\)"))
 	       (let ((fullpath
 		      (concat tmp-path "/"
 			      (and (string-match tmp-regexp dict-name)